home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / phagexsources.lha / source / MemSize.s < prev    next >
Encoding:
Text File  |  1993-08-21  |  454 b   |  33 lines
  1.     Opt    c-
  2.     Section    "MemSizes",Code_c
  3.             
  4. CheckMem    Moveq.l    #0,d0
  5.     Lea    FastSize(pc),a5
  6.     Move.l    d0,00(a5)
  7.     Move.l    d0,04(a5)
  8.             
  9.     Move.l    4,a6
  10.     Move.l    322(a6),a0
  11.             
  12. CheckNode    Move.w    14(a0),d0
  13.     Move.l    20(a0),d1
  14.     Move.l    24(a0),d2
  15.     And.l    #$fffff000,d1
  16.     Sub.l    d1,d2
  17.     And.w    #4,d0
  18.     Beq    AddChip
  19.             
  20.     Add.l    d2,00(a5)
  21.     Bra    TryNextNode
  22.             
  23. AddChip    Add.l    d2,04(a5)
  24.  
  25. TryNextNode    Move.l    0(a0),a0            
  26.     Tst.l    (a0)
  27.     Bne    CheckNode
  28.     Rts
  29.             
  30. FastSize    Dc.l    0    
  31. ChipSize    Dc.l    0    
  32.             
  33.